home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 51 / Amiga Format CD51 (2000-03-10)(Future Publishing)(GB)[!][issue 2000-04].iso / -in_the_mag- / banging_the_metal / qdos / qdos4amiga3.lha / PLAY_SCALE_bas < prev    next >
Text File  |  1998-02-12  |  746b  |  28 lines
  1. 100 REMark SCALE - v1.01
  2. 110 REMark M.J.Swift - 26 Sep 93
  3. 120 REMark SNG - Coda and tweaks 11 Feb 94
  4. 130 :
  5. 140 CLS:CSIZE 2,1:PRINT "PLAY_SCALE v1.01":CSIZE 0,0
  6. 150 N$="B A#A G#G F#F E D#D C#C "
  7. 160 TR2=EXP(LN(2)/12)
  8. 170 dur=250000/72
  9. 180 a=11447
  10. 190 b=10.6
  11. 200 PRINT \"Frequency","BEEP","Note"
  12. 210 CLS#0
  13. 220 PRINT #0;" frequency approx = ";a;"/(";b;"+pitch)"
  14. 230 PRINT #0;"     pitch approx = ";a;"/freq";"-";b
  15. 240 f=440:n=3
  16. 250 REPeat loop
  17. 260  p=INT(a/f-b+.5)
  18. 270  IF p>255 THEN EXIT loop
  19. 280  PRINT ,INT(f*100+5E-3)/100,p,N$(n+n-1 TO n+n)
  20. 290  REPeat poll : IF NOT BEEPING THEN EXIT poll
  21. 300  BEEP dur,p
  22. 310  f=f/TR2:n=1+(n MOD 12)
  23. 320 END REPeat loop
  24. 330 PAUSE 50 :REMark Coda!
  25. 340 BEEP dur,252/8
  26. 350 PRINT \"Bye..."
  27. 360 BEEP dur,8,0,3,7,0,3
  28.